home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / cactus / 01 / basicprg's / kassettendruck < prev    next >
Text File  |  1988-04-30  |  5KB  |  248 lines

  1. REM    ***********************************
  2. REM    * Ein PD-Programm von F. Weichert *
  3. REM    ***********************************
  4. REM 
  5. REM    Falls Dir das Prg. gefaellt, dann sende doch 5,-DM an
  6. REM                 Friedhelm Weichert
  7. REM    Kontonummer: 482125        Bankleitzahl: 31251350
  8. REM                Kreissparkasse Grevenbroich
  9.  
  10.  
  11. CLEAR
  12. DIM titela$(16),intera$(16),titelb$(16),interb$(16)
  13.  
  14. Anfang:
  15.  
  16. CLS
  17. PRINT "Kassettenhuellenbedrucker von Friedhelm Weichert"
  18. PRINT "------------------------------------------------"
  19. PRINT
  20. PRINT
  21. PRINT "  1 = Laden einer fertigen Kassettenhuelle"
  22. PRINT "  2 = Speichern der bearbeiteten Kassettenhuelle"
  23. PRINT "  3 = Bearbeiten einer neuen Kassettenhuelle"
  24. PRINT "  4 = Drucken der Kassettenhuelle"
  25. PRINT "  5 = Ausgabe des Formats auf dem Bildschirm"
  26. PRINT
  27. INPUT "Eingabe :",e
  28. ON e GOTO Laden,Speichern,Neubearbeiten,Drucken,Bildschirm
  29.  
  30.  
  31.  
  32.  
  33. Neubearbeiten:
  34.  
  35. CLEAR
  36. DIM titela$(16),intera$(16),titelb$(16),interb$(16)
  37. INPUT "Name der Seite A";KassettennameA$
  38. IF LEN(KassettennameA$) > 30 THEN KassettennameA$=LEFT$(KassettennameA$,30)
  39. INPUT "Name der Seite B";KassettennameB$
  40. IF LEN(KassettennameB$) > 30 THEN KassettennameB$=LEFT$(KassettennameB$,30)
  41. PRINT
  42. PRINT
  43. PRINT "Eingabe der Titel von Seite A "
  44. PRINT 
  45. INPUT "Wieviele Titel befinden sich auf Seite A (max.16)?",menge1
  46. PRINT
  47. menge = menge1
  48. FOR i = 1 TO menge
  49. PRINT i;". Titel =";
  50. INPUT titela$(i)
  51. IF LEN(titela$(i)) > 20 THEN titela$(i)=LEFT$(titela$(i),20)
  52. PRINT "dazugehoeriger Interpret =";
  53. INPUT intera$(i)
  54. IF LEN(intera$(i)) > 11 THEN intera$(i)=LEFT$(intera$(i),11)
  55. NEXT i
  56. PRINT
  57. PRINT
  58. PRINT
  59. PRINT "Nun Eingabe der Titel und Gruppen von Seite B"
  60. PRINT
  61. INPUT "Anzahl der Titel auf Seite B  (max.16) ";menge2
  62. PRINT
  63. menge = menge2
  64. FOR i=1 TO menge
  65. PRINT i;". Titel =";
  66. INPUT titelb$(i)
  67. IF LEN(titelb$(i)) > 20 THEN titelb$(i)=LEFT$(titelb$(i),20)
  68. PRINT "dazugehoeriger Interpret =";
  69. INPUT interb$(i)
  70. IF LEN(interb$(i)) > 11 THEN interb$(i)=LEFT$(interb$(i),11)
  71.  
  72. NEXT i
  73. GOTO Anfang
  74.  
  75.  
  76. Drucken:
  77. PRINT 
  78. PRINT
  79. PRINT "Drucker einschalten, Return Taste betaetigen!"
  80. tastendruck:
  81. w$=INKEY$
  82. IF w$="" THEN tastendruck
  83. IF w$ <> CHR$(13) THEN tastendruck
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91. OPEN "par:" FOR OUTPUT AS #1
  92. GOTO Beginnausgabe
  93.  
  94. Bildschirm:
  95. CLS
  96. PRINT "   A";TAB(36);"|";TAB(70);"B"
  97. FOR i = 1 TO 16
  98. IF LEN(titela$(i))=0 THEN titela$(i)="."
  99. PRINT USING "##";i; 
  100. PRINT " ";titela$(i);
  101. PRINT TAB(24);"|";intera$(i);TAB(36);"| ";titelb$(i);TAB(58);"|";interb$(i);TAB(70);"."
  102. NEXT i
  103. PRINT 
  104.  
  105. PRINT "Seite A: ";KassettennameA$
  106. PRINT "Seite B: ";KassettennameB$
  107. PRINT TAB(30);"W=Weiter A=Aendern"                             
  108. Taste5:
  109. w$=INKEY$
  110. IF w$="" THEN Taste5
  111. IF w$="A" OR w$="a" THEN
  112.    INPUT "Auf welcher Seite soll geaendert werden";seite$
  113.    INPUT "Welcher Titel bzw. Interpret soll geaendert werden";eingabe
  114.    IF seite$="A" OR seite$="a" THEN
  115.       PRINT intera$(eingabe);" ";titela$(eingabe)
  116.       INPUT "Interpret = ";intera$(eingabe)
  117.       IF LEN(intera$(eingabe)) > 11 THEN intera$(eingabe)=LEFT$(intera$(eingabe),11)
  118.       INPUT "Titel = ";titela$(eingabe)
  119.       IF LEN(titela$(eingabe)) > 20 THEN titela$(eingabe)=LEFT$(titela$(eingabe),20)
  120.    END IF
  121.    IF seite$="B" OR seite$="b" THEN
  122.       PRINT interb$(eingabe);" ";titelb$(eingabe)
  123.       INPUT "Interpret = ";interb$(eingabe)
  124.       IF LEN(interb$(eingabe)) > 11 THEN interb$(eingabe)=LEFT$(interb$(eingabe),11)
  125.       INPUT "Titel = ";titelb$(eingabe)
  126.       IF LEN(titelb$(eingabe)) > 20 THEN titelb$(eingabe)=LEFT$(titelb$(eingabe),20)
  127.    END IF
  128.  END IF  
  129.    
  130.  
  131. GOTO Anfang
  132.  
  133. REM *****************  Drucken **********************
  134.  
  135. REM *********** Voreinstellungen des Duckers auf Schmalschrift und Zeilen-
  136. REM *********** vorschub
  137.  
  138. Beginnausgabe:
  139.  
  140.  
  141.  
  142. PRINT #1,CHR$(27);"3";CHR$(30);
  143. PRINT #1,CHR$(27);"-";CHR$(1);
  144. PRINT #1,CHR$(27);"G";
  145. PRINT #1,CHR$(27);CHR$(15);
  146.  
  147. PRINT #1,"A";TAB(36);"|";TAB(70);"B"
  148. FOR i = 1 TO 16
  149. IF LEN(titela$(i))=0 THEN titela$(i)="." 
  150. PRINT #1,titela$(i);
  151. PRINT #1,TAB(21);"|";intera$(i);TAB(33);"| ";titelb$(i);TAB(55);"|";interb$(i);TAB(67);"."
  152. NEXT i
  153.  
  154. PRINT #1," "
  155. PRINT #1," "
  156. PRINT #1,CHR$(27);"B";
  157. PRINT #1,CHR$(27);"W";CHR$(1);
  158.  
  159. PRINT #1,"A: ";KassettennameA$
  160. PRINT #1,"B: ";KassettennameB$
  161. PRINT #1," "
  162. PRINT #1," "
  163. PRINT #1," "
  164. PRINT #1," "
  165. PRINT #1,".................................."
  166.  
  167.  
  168. CLOSE 1
  169.  
  170. PRINT "Ausgabe beendet !!!    Zurueck zum Anfang mit Tastendruck."
  171.  
  172. Taste3:
  173. w$=INKEY$
  174. IF w$="" THEN Taste3
  175. GOTO Anfang
  176.  
  177. Speichern:
  178. CLS
  179. IF menge1 > menge2 THEN menge=menge1
  180. IF menge2 > menge1 THEN menge=menge2
  181. PRINT 
  182. PRINT
  183. PRINT "Speichern der Kassettenhuelle"
  184. PRINT "-----------------------------"
  185. PRINT
  186. INPUT "Name der Huelle"; Kassettenname$
  187. PRINT
  188. PRINT "Zum Speichern Taste druecken!"
  189.  
  190. Taste1:
  191. w$=INKEY$
  192. IF w$="" THEN Taste1
  193.  
  194. OPEN Kassettenname$ FOR OUTPUT AS 2
  195.  
  196.  
  197. PRINT #2,KassettennameA$
  198. PRINT #2,KassettennameB$
  199.  
  200. FOR i = 1 TO 16
  201. PRINT #2,titela$(i)
  202. PRINT #2,titelb$(i)
  203. PRINT #2,intera$(i)
  204. PRINT #2,interb$(i)
  205. NEXT i
  206. CLOSE 2
  207. GOTO Anfang
  208.  
  209. Laden:
  210. CLS
  211. CLEAR
  212. DIM titela$(16),intera$(16),titelb$(16),interb$(16)
  213. PRINT
  214. PRINT 
  215. PRINT "Laden einer Kassettenhuelle"
  216. PRINT "---------------------------"
  217. PRINT 
  218. INPUT "Name der Kassettenhuelle";Kassettenname$
  219. PRINT
  220. PRINT "Zum Laden Taste druecken!"
  221.  
  222. taste2:
  223. w$=INKEY$
  224. IF w$="" THEN taste2
  225.  
  226. OPEN Kassettenname$ FOR INPUT AS 2
  227.  
  228.  
  229. INPUT #2,KassettennameA$
  230. INPUT #2,KassettennameB$
  231.  
  232. FOR i= 1 TO 16
  233. wert=EOF(2)
  234. IF wert = -1 THEN Anfang
  235. INPUT #2,titela$(i)
  236. INPUT #2,titelb$(i)
  237. INPUT #2,intera$(i)
  238. INPUT #2,interb$(i)
  239. NEXT i
  240. CLOSE 2
  241. GOTO Anfang
  242.  
  243.  
  244. END
  245.  
  246.  
  247.  
  248.